From a9a59766562baf4686af1ea5c24a44a401842edd Mon Sep 17 00:00:00 2001 From: Paul Eggert Date: Tue, 16 Mar 1993 21:09:56 +0000 Subject: [PATCH] (vc-version-diff): Use (message ...), not (message (format ...)). (vc-backend-checkout, vc-backend-assign-name): Correct bogus messages. --- lisp/vc.el | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/lisp/vc.el b/lisp/vc.el index 4444ca6d946..7307734dea6 100644 --- a/lisp/vc.el +++ b/lisp/vc.el @@ -5,7 +5,7 @@ ;; Author: Eric S. Raymond ;; Version: 5.0 -;; $Id: vc.el,v 1.25 1993/03/11 07:45:02 eric Exp eric $ +;; $Id: vc.el,v 1.26.1.1 1993/03/16 20:54:53 eggert Exp $ ;; This file is part of GNU Emacs. @@ -572,7 +572,7 @@ files in or below it." (set-buffer (get-buffer-create "*vc*")) (vc-file-tree-walk (function (lambda (f) - (message (format "Looking at %s" f)) + (message "Looking at %s" f) (and (not (file-directory-p f)) (vc-registered f) @@ -1072,7 +1072,7 @@ Return nil if there is no such person." (defun vc-backend-checkout (file &optional writeable rev) ;; Retrieve a copy of a saved version into a workfile - (message "Checking out %s...done" file) + (message "Checking out %s..." file) (vc-backend-dispatch file (progn (vc-do-command 0 "get" file ;; SCCS @@ -1181,7 +1181,6 @@ Return nil if there is no such person." (vc-add-triple name file (vc-latest-version file)) ;; SCCS (vc-do-command 0 "rcs" file (concat "-n" name ":")) ;; RCS ) - (message "Removing last change from %s...done" file) ) (defun vc-backend-diff (file oldvers &optional newvers) -- 2.30.2